VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{8E27C92E-1264-101C-8A2F-040224009C02}#7.0#0"; "MSCAL.OCX"
Begin VB.Form frmModuleExplorer 
   BorderStyle     =   0  'None
   Caption         =   "Module Explorer"
   ClientHeight    =   9150
   ClientLeft      =   180
   ClientTop       =   255
   ClientWidth     =   15135
   BeginProperty Font 
      Name            =   "Tahoma"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "frmModuleExplorer.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   9150
   ScaleWidth      =   15135
   ShowInTaskbar   =   0   'False
   Tag             =   "Close"
   Begin VB.PictureBox picFA1 
      BorderStyle     =   0  'None
      Height          =   510
      Left            =   15
      Picture         =   "frmModuleExplorer.frx":0CCA
      ScaleHeight     =   510
      ScaleWidth      =   2490
      TabIndex        =   33
      Top             =   7560
      Width           =   2490
      Begin VB.PictureBox picFA2 
         BorderStyle     =   0  'None
         Height          =   510
         Left            =   0
         Picture         =   "frmModuleExplorer.frx":4FFE
         ScaleHeight     =   510
         ScaleWidth      =   2490
         TabIndex        =   34
         Top             =   0
         Width           =   2490
         Begin VB.PictureBox picFA 
            BorderStyle     =   0  'None
            Height          =   510
            Left            =   0
            Picture         =   "frmModuleExplorer.frx":9332
            ScaleHeight     =   510
            ScaleWidth      =   2490
            TabIndex        =   35
            Top             =   0
            Width           =   2490
         End
      End
   End
   Begin VB.PictureBox picAP 
      BorderStyle     =   0  'None
      Height          =   495
      Left            =   15
      Picture         =   "frmModuleExplorer.frx":D666
      ScaleHeight     =   495
      ScaleWidth      =   2490
      TabIndex        =   26
      Top             =   5595
      Width           =   2490
   End
   Begin VB.PictureBox Picture4 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   285
      Left            =   2160
      Picture         =   "frmModuleExplorer.frx":1199A
      ScaleHeight     =   285
      ScaleWidth      =   300
      TabIndex        =   18
      Top             =   8655
      Width           =   300
   End
   Begin VB.PictureBox Picture2 
      BackColor       =   &H80000009&
      Height          =   9060
      Left            =   10890
      ScaleHeight     =   9000
      ScaleWidth      =   4185
      TabIndex        =   13
      Top             =   15
      Width           =   4245
      Begin VB.CheckBox Check1 
         BackColor       =   &H80000005&
         Caption         =   "All Previous Tasks"
         Height          =   210
         Left            =   165
         TabIndex        =   38
         Top             =   7200
         Width           =   2010
      End
      Begin VB.PictureBox Picture3 
         BorderStyle     =   0  'None
         Height          =   1515
         Left            =   150
         Picture         =   "frmModuleExplorer.frx":11F5C
         ScaleHeight     =   1515
         ScaleWidth      =   3900
         TabIndex        =   17
         Top             =   7440
         Width           =   3900
      End
      Begin MSComctlLib.ListView ListView1 
         Height          =   1950
         Left            =   150
         TabIndex        =   16
         Top             =   3090
         Width           =   3885
         _ExtentX        =   6853
         _ExtentY        =   3440
         View            =   3
         LabelWrap       =   -1  'True
         HideSelection   =   -1  'True
         Checkboxes      =   -1  'True
         GridLines       =   -1  'True
         _Version        =   393217
         ForeColor       =   -2147483640
         BackColor       =   -2147483643
         BorderStyle     =   1
         Appearance      =   0
         NumItems        =   0
      End
      Begin MSACAL.Calendar Calendar1 
         Height          =   2850
         Left            =   270
         TabIndex        =   14
         Top             =   120
         Width           =   3690
         _Version        =   524288
         _ExtentX        =   6509
         _ExtentY        =   5027
         _StockProps     =   1
         BackColor       =   -2147483643
         Year            =   2005
         Month           =   2
         Day             =   15
         DayLength       =   1
         MonthLength     =   1
         DayFontColor    =   0
         FirstDay        =   7
         GridCellEffect  =   0
         GridFontColor   =   10485760
         GridLinesColor  =   -2147483632
         ShowDateSelectors=   -1  'True
         ShowDays        =   -1  'True
         ShowHorizontalGrid=   -1  'True
         ShowTitle       =   -1  'True
         ShowVerticalGrid=   -1  'True
         TitleFontColor  =   192
         ValueIsNull     =   -1  'True
         BeginProperty DayFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         BeginProperty GridFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         BeginProperty TitleFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Arial"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin MSComctlLib.ListView ListView2 
         Height          =   1920
         Left            =   150
         TabIndex        =   20
         Top             =   5190
         Width           =   3885
         _ExtentX        =   6853
         _ExtentY        =   3387
         View            =   3
         LabelEdit       =   1
         LabelWrap       =   -1  'True
         HideSelection   =   -1  'True
         Checkboxes      =   -1  'True
         FullRowSelect   =   -1  'True
         GridLines       =   -1  'True
         _Version        =   393217
         ForeColor       =   -2147483640
         BackColor       =   -2147483643
         BorderStyle     =   1
         Appearance      =   0
         NumItems        =   0
      End
   End
   Begin VB.PictureBox picCore1 
      BorderStyle     =   0  'None
      Height          =   510
      Left            =   15
      Picture         =   "frmModuleExplorer.frx":2504E
      ScaleHeight     =   510
      ScaleWidth      =   2490
      TabIndex        =   12
      Top             =   4620
      Width           =   2490
      Begin VB.PictureBox picCore 
         BorderStyle     =   0  'None
         Height          =   510
         Left            =   0
         Picture         =   "frmModuleExplorer.frx":29382
         ScaleHeight     =   510
         ScaleWidth      =   2490
         TabIndex        =   22
         Top             =   0
         Width           =   2490
      End
   End
   Begin VB.PictureBox picAR1 
      BorderStyle     =   0  'None
      Height          =   495
      Left            =   15
      Picture         =   "frmModuleExplorer.frx":2D6B6
      ScaleHeight     =   495
      ScaleWidth      =   2490
      TabIndex        =   11
      Top             =   5115
      Width           =   2490
      Begin VB.PictureBox picAR2 
         BorderStyle     =   0  'None
         Height          =   495
         Left            =   0
         Picture         =   "frmModuleExplorer.frx":319EA
         ScaleHeight     =   495
         ScaleWidth      =   2490
         TabIndex        =   23
         Top             =   0
         Width           =   2490
         Begin VB.PictureBox picAR 
            BorderStyle     =   0  'None
            Height          =   495
            Left            =   0
            Picture         =   "frmModuleExplorer.frx":35D1E
            ScaleHeight     =   495
            ScaleWidth      =   2490
            TabIndex        =   24
            Top             =   0
            Width           =   2490
         End
      End
   End
   Begin VB.PictureBox picAP1 
      BorderStyle     =   0  'None
      Height          =   495
      Left            =   15
      Picture         =   "frmModuleExplorer.frx":3A052
      ScaleHeight     =   495
      ScaleWidth      =   2490
      TabIndex        =   10
      Top             =   5595
      Width           =   2490
      Begin VB.PictureBox picAP2 
         BorderStyle     =   0  'None
         Height          =   495
         Left            =   0
         Picture         =   "frmModuleExplorer.frx":3E386
         ScaleHeight     =   495
         ScaleWidth      =   2490
         TabIndex        =   25
         Top             =   0
         Width           =   2490
      End
   End
   Begin VB.PictureBox picManu1 
      BorderStyle     =   0  'None
      Height          =   510
      Left            =   15
      Picture         =   "frmModuleExplorer.frx":426BA
      ScaleHeight     =   510
      ScaleWidth      =   2490
      TabIndex        =   9
      Top             =   7065
      Width           =   2490
      Begin VB.PictureBox picManu2 
         BorderStyle     =   0  'None
         Height          =   510
         Left            =   0
         Picture         =   "frmModuleExplorer.frx":469EE
         ScaleHeight     =   510
         ScaleWidth      =   2490
         TabIndex        =   31
         Top             =   0
         Width           =   2490
         Begin VB.PictureBox picManu 
            BorderStyle     =   0  'None
            Height          =   510
            Left            =   0
            Picture         =   "frmModuleExplorer.frx":4AD22
            ScaleHeight     =   510
            ScaleWidth      =   2490
            TabIndex        =   32
            Top             =   0
            Width           =   2490
         End
      End
   End
   Begin VB.PictureBox picGL1 
      BorderStyle     =   0  'None
      Height          =   510
      Left            =   15
      Picture         =   "frmModuleExplorer.frx":4F056
      ScaleHeight     =   510
      ScaleWidth      =   2490
      TabIndex        =   8
      Top             =   6570
      Width           =   2490
      Begin VB.PictureBox picGL2 
         BorderStyle     =   0  'None
         Height          =   510
         Left            =   0
         Picture         =   "frmModuleExplorer.frx":5338A
         ScaleHeight     =   510
         ScaleWidth      =   2490
         TabIndex        =   29
         Top             =   0
         Width           =   2490
         Begin VB.PictureBox picGL 
            BorderStyle     =   0  'None
            Height          =   510
            Left            =   0
            Picture         =   "frmModuleExplorer.frx":576BE
            ScaleHeight     =   510
            ScaleWidth      =   2490
            TabIndex        =   30
            Top             =   0
            Width           =   2490
         End
      End
   End
   Begin VB.PictureBox picInv1 
      BorderStyle     =   0  'None
      Height          =   510
      Left            =   15
      Picture         =   "frmModuleExplorer.frx":5B9F2
      ScaleHeight     =   510
      ScaleWidth      =   2490
      TabIndex        =   7
      Top             =   6075
      Width           =   2490
      Begin VB.PictureBox picInv2 
         BorderStyle     =   0  'None
         Height          =   510
         Left            =   0
         Picture         =   "frmModuleExplorer.frx":5FD26
         ScaleHeight     =   510
         ScaleWidth      =   2490
         TabIndex        =   27
         Top             =   0
         Width           =   2490
         Begin VB.PictureBox picInv 
            BorderStyle     =   0  'None
            Height          =   510
            Left            =   0
            Picture         =   "frmModuleExplorer.frx":6405A
            ScaleHeight     =   510
            ScaleWidth      =   2490
            TabIndex        =   28
            Top             =   0
            Width           =   2490
         End
      End
   End
   Begin VB.PictureBox Picture1 
      BackColor       =   &H8000000C&
      Height          =   4455
      Left            =   45
      ScaleHeight     =   4395
      ScaleWidth      =   2430
      TabIndex        =   2
      Top             =   30
      Width           =   2490
      Begin VB.Image imgChart 
         Height          =   480
         Left            =   960
         Picture         =   "frmModuleExplorer.frx":6838E
         Top             =   210
         Width           =   480
      End
      Begin VB.Label Label1 
         BackColor       =   &H8000000C&
         Caption         =   "Chart && Graphs"
         Height          =   390
         Left            =   660
         TabIndex        =   6
         Top             =   750
         Width           =   1140
      End
      Begin VB.Image imgClient 
         Height          =   480
         Left            =   915
         Picture         =   "frmModuleExplorer.frx":687D0
         Top             =   1185
         Width           =   480
      End
      Begin VB.Label Label2 
         BackColor       =   &H8000000C&
         Caption         =   "For Approval"
         Height          =   315
         Left            =   720
         TabIndex        =   5
         Top             =   1830
         Width           =   945
      End
      Begin VB.Image imgProject 
         Height          =   480
         Left            =   930
         Picture         =   "frmModuleExplorer.frx":68C12
         Top             =   2265
         Width           =   480
      End
      Begin VB.Label Label3 
         BackColor       =   &H8000000C&
         Caption         =   "Inquiries"
         Height          =   390
         Left            =   870
         TabIndex        =   4
         Top             =   2880
         Width           =   675
      End
      Begin VB.Image imgTask 
         Height          =   480
         Left            =   900
         Picture         =   "frmModuleExplorer.frx":694DC
         Top             =   3315
         Width           =   480
      End
      Begin VB.Label Label4 
         BackColor       =   &H8000000C&
         Caption         =   "Reminders"
         Height          =   390
         Left            =   795
         TabIndex        =   3
         Top             =   3885
         Width           =   825
      End
   End
   Begin VB.PictureBox picReport1 
      BorderStyle     =   0  'None
      Height          =   510
      Left            =   15
      Picture         =   "frmModuleExplorer.frx":6991E
      ScaleHeight     =   510
      ScaleWidth      =   2490
      TabIndex        =   1
      Top             =   8055
      Width           =   2490
      Begin VB.PictureBox picReport2 
         BorderStyle     =   0  'None
         Height          =   510
         Left            =   0
         Picture         =   "frmModuleExplorer.frx":6DC52
         ScaleHeight     =   510
         ScaleWidth      =   2490
         TabIndex        =   36
         Top             =   0
         Width           =   2490
         Begin VB.PictureBox picReport 
            BorderStyle     =   0  'None
            Height          =   510
            Left            =   0
            Picture         =   "frmModuleExplorer.frx":71F86
            ScaleHeight     =   510
            ScaleWidth      =   2490
            TabIndex        =   37
            Top             =   0
            Width           =   2490
         End
      End
   End
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   4005
      Top             =   4920
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   31
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":762BA
            Key             =   "books05"
            Object.Tag             =   "books05"
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":7670C
            Key             =   "proppage"
            Object.Tag             =   "proppage"
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":76B5E
            Key             =   "catalog"
            Object.Tag             =   "catalog"
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":76E78
            Key             =   "reports"
            Object.Tag             =   "reports"
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":772CA
            Key             =   "logger"
            Object.Tag             =   "logger"
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":7771C
            Key             =   "user"
            Object.Tag             =   "user"
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":77B6E
            Key             =   "gears"
            Object.Tag             =   "gears"
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":77E88
            Key             =   "security"
            Object.Tag             =   "security"
         EndProperty
         BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":782DA
            Key             =   "addin"
            Object.Tag             =   "addin"
         EndProperty
         BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":7872C
            Key             =   "phone"
            Object.Tag             =   "phone"
         EndProperty
         BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":78A46
            Key             =   "pencil"
            Object.Tag             =   "pencil"
         EndProperty
         BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":78E98
            Key             =   "approval"
            Object.Tag             =   "approval"
         EndProperty
         BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":792EA
            Key             =   "credit"
            Object.Tag             =   "credit"
         EndProperty
         BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":7973C
            Key             =   "price"
            Object.Tag             =   "price"
         EndProperty
         BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":79B8E
            Key             =   "product"
            Object.Tag             =   "product"
         EndProperty
         BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":79FE0
            Key             =   "Files"
            Object.Tag             =   "Files"
         EndProperty
         BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":7C11A
            Key             =   "customer"
            Object.Tag             =   "customer"
         EndProperty
         BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":7CCEC
            Key             =   "salesman"
            Object.Tag             =   "salesman"
         EndProperty
         BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":7D5C6
            Key             =   "supplier"
            Object.Tag             =   "supplier"
         EndProperty
         BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":7DEA0
            Key             =   "chart"
            Object.Tag             =   "chart"
         EndProperty
         BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":7E2F2
            Key             =   "warehouse"
            Object.Tag             =   "warehouse"
         EndProperty
         BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":7E88C
            Key             =   "fixed"
            Object.Tag             =   "fixed"
         EndProperty
         BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":7ECDE
            Key             =   "bank"
            Object.Tag             =   "bank"
         EndProperty
         BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":7F130
            Key             =   "company"
            Object.Tag             =   "company"
         EndProperty
         BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":7F582
            Key             =   "item"
            Object.Tag             =   "item"
         EndProperty
         BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":7F9D4
            Key             =   "audit"
            Object.Tag             =   "audit"
         EndProperty
         BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":7FE26
            Key             =   "books04"
            Object.Tag             =   "books04"
         EndProperty
         BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":80278
            Key             =   "books03"
            Object.Tag             =   "books03"
         EndProperty
         BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":806CA
            Key             =   "closing"
            Object.Tag             =   "closing"
         EndProperty
         BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":8151C
            Key             =   "supply"
            Object.Tag             =   "supply"
         EndProperty
         BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":83226
            Key             =   "recompute"
            Object.Tag             =   "recompute"
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.TreeView TreeView1 
      Height          =   9060
      Left            =   2580
      TabIndex        =   0
      Top             =   15
      Width           =   4095
      _ExtentX        =   7223
      _ExtentY        =   15981
      _Version        =   393217
      Indentation     =   617
      LineStyle       =   1
      Style           =   7
      ImageList       =   "ImageList1"
      Appearance      =   1
   End
   Begin MSComctlLib.ImageList ImageList2 
      Left            =   9600
      Top             =   4920
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   29
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":84078
            Key             =   "books05"
            Object.Tag             =   "books05"
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":844CA
            Key             =   "proppage"
            Object.Tag             =   "proppage"
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":8491C
            Key             =   "catalog"
            Object.Tag             =   "catalog"
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":84C36
            Key             =   "reports"
            Object.Tag             =   "reports"
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":85088
            Key             =   "logger"
            Object.Tag             =   "logger"
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":854DA
            Key             =   "user"
            Object.Tag             =   "user"
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":8592C
            Key             =   "gears"
            Object.Tag             =   "gears"
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":85C46
            Key             =   "security"
            Object.Tag             =   "security"
         EndProperty
         BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":86098
            Key             =   "addin"
            Object.Tag             =   "addin"
         EndProperty
         BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":864EA
            Key             =   "phone"
            Object.Tag             =   "phone"
         EndProperty
         BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":86804
            Key             =   "pencil"
            Object.Tag             =   "pencil"
         EndProperty
         BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":86C56
            Key             =   "approval"
            Object.Tag             =   "approval"
         EndProperty
         BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":870A8
            Key             =   "credit"
            Object.Tag             =   "credit"
         EndProperty
         BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":874FA
            Key             =   "price"
            Object.Tag             =   "price"
         EndProperty
         BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":8794C
            Key             =   "product"
            Object.Tag             =   "product"
         EndProperty
         BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":87D9E
            Key             =   "Files"
            Object.Tag             =   "Files"
         EndProperty
         BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":89ED8
            Key             =   "customer"
            Object.Tag             =   "customer"
         EndProperty
         BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":8AAAA
            Key             =   "salesman"
            Object.Tag             =   "salesman"
         EndProperty
         BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":8B384
            Key             =   "supplier"
            Object.Tag             =   "supplier"
         EndProperty
         BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":8BC5E
            Key             =   "chart"
            Object.Tag             =   "chart"
         EndProperty
         BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":8C0B0
            Key             =   "warehouse"
            Object.Tag             =   "warehouse"
         EndProperty
         BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":8C64A
            Key             =   "fixed"
            Object.Tag             =   "fixed"
         EndProperty
         BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":8CA9C
            Key             =   "bank"
            Object.Tag             =   "bank"
         EndProperty
         BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":8CEEE
            Key             =   "company"
            Object.Tag             =   "company"
         EndProperty
         BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":8D340
            Key             =   "item"
            Object.Tag             =   "item"
         EndProperty
         BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":8D792
            Key             =   "audit"
            Object.Tag             =   "audit"
         EndProperty
         BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":8DBE4
            Key             =   "books04"
            Object.Tag             =   "books04"
         EndProperty
         BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":8E036
            Key             =   "books03"
            Object.Tag             =   "books03"
         EndProperty
         BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmModuleExplorer.frx":8E488
            Key             =   "NewReport"
            Object.Tag             =   "NewReport"
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.TreeView TreeView2 
      Height          =   9060
      Left            =   6735
      TabIndex        =   15
      Top             =   15
      Width           =   4095
      _ExtentX        =   7223
      _ExtentY        =   15981
      _Version        =   393217
      Indentation     =   617
      LineStyle       =   1
      Style           =   7
      ImageList       =   "ImageList2"
      Appearance      =   1
   End
   Begin VB.PictureBox Picture5 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   285
      Left            =   2160
      Picture         =   "frmModuleExplorer.frx":8F2DA
      ScaleHeight     =   285
      ScaleWidth      =   300
      TabIndex        =   19
      Top             =   8655
      Width           =   300
   End
   Begin VB.PictureBox picCore2 
      BorderStyle     =   0  'None
      Height          =   510
      Left            =   15
      Picture         =   "frmModuleExplorer.frx":8F89C
      ScaleHeight     =   510
      ScaleWidth      =   2490
      TabIndex        =   21
      Top             =   4620
      Width           =   2490
   End
   Begin VB.PictureBox Picture6 
      BorderStyle     =   0  'None
      Height          =   510
      Left            =   15
      Picture         =   "frmModuleExplorer.frx":93BD0
      ScaleHeight     =   510
      ScaleWidth      =   2490
      TabIndex        =   39
      Top             =   8550
      Width           =   2490
   End
End
Attribute VB_Name = "frmModuleExplorer"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''IT Group Inc. 2005.09.23
'
'Option Explicit
'
'
'Private connList As ADODB.Connection
'Private connSecurity As ADODB.Connection
'
''Object variables
'
'
''Other declaration
'Public sBit As String
'
'Private Sub Calendar1_DblClick()
'    lTasksFlag = "New"
'    frmTasks.Show 1
'    If Choice = "Save" Then
'       Fill_Tasks
'    End If
'End Sub
'
'Private Sub Check1_Click()
'    If Me.Check1.Value = 1 Then
'        Dim rsGet As New Recordset
'        ListView2.ListItems.Clear
'        sSQL = "Select * from TASKS WHERE cEmployeeID='" & SecUserID & "'"
'        rsGet.Open sSQL, cn, adOpenKeyset, adLockReadOnly
'        If rsGet.RecordCount <> 0 Then
'            While Not rsGet.EOF
'                Set itmX = ListView2.ListItems.Add(, , "")
'                itmX.SubItems(1) = Format(rsGet!dDateTo, "mmm-dd")
'                itmX.SubItems(2) = rsGet!cDescription
'                itmX.SubItems(3) = rsGet!cTaskID
'                rsGet.MoveNext
'            Wend
'        End If
'        rsGet.Close
'        Set rsGet = Nothing
'    Else
'        Fill_Tasks
'    End If
'End Sub
'
'Private Sub Form_Activate()
'    BitVisible ITGLedgerMain.tbrMain
'    BitReload ITGLedgerMain, Me, ITGLedgerMain.tbrMain, sBit
'    ITGLedgerMain.tbrMain.Buttons("btnFind").ButtonMenus("btnFindP").Enabled = False
'    Set FrmName = Me
'End Sub
'
''Release your Object
'Private Sub Form_Unload(Cancel As Integer)
'On Error Resume Next
'    BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, , , , , , , , , , True
'    BitVisible ITGLedgerMain.tbrMain
'    ITGLedgerMain.tbrMain.Buttons("btnFind").ButtonMenus("btnFindP").Enabled = False
'
'    CloseMenuTab ITGLedgerMain
'
'    Me.Tag = "Close"
'    Set frmModuleExplorer = Nothing
'    Set connList = Nothing
'    Set connSecurity = Nothing
'
'    lCloseWindow = True
'
''    oForm(102).Mode = 1
''    oForm(102).Tag = Me.Tag
'End Sub
'
''Reload menu buttons (do not delete this sub)
'Public Sub TBBitReload()
'    BitVisible ITGLedgerMain.tbrMain, True, True
'    BitReload ITGLedgerMain, Me, ITGLedgerMain.tbrMain, sBit
'    ITGLedgerMain.tbrMain.Buttons("btnFind").ButtonMenus("btnFindP").Enabled = False
'    Set FrmName = Me
'End Sub
'
''Close active window
'Public Sub TBCloseWindow()
'    Unload Me
'End Sub
'
''Search using the frmITGSearch
'Public Sub TBFind()
'    frmITGSearch.Show
'    frmITGSearch.ZOrder
'End Sub
'
'Private Sub Form_Load()
'    Set FrmName = Me
'    FormSetup
'
'    Set rs = Nothing
'
'    BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, , , , , , , , , , True, , , True
'    BitVisible ITGLedgerMain.tbrMain, True
'    ITGLedgerMain.tbrMain.Buttons("btnFind").ButtonMenus("btnFindP").Enabled = False
'
'    If GetValueFrTable("lBit", "SYSTEM_OPTION", "cCode = 'GEN_APP_WINXP'") = True Then
'        Me.Width = 2670
'        Me.Height = Me.Height - 230
'        Me.TreeView1.Height = Me.TreeView1.Height - 230
'        Me.TreeView2.Height = Me.TreeView2.Height - 230
'        Me.Picture2.Height = Me.Picture2.Height - 230
'        Me.Picture6.Visible = False
'        Me.Picture4.Top = Me.Picture4.Top - 300
'        Me.Picture5.Top = Me.Picture5.Top - 300
'    Else
'        Me.Width = 2670
'        Me.Height = 9630
'    End If
'
'    Set FrmName = Me
'    Me.Tag = "Open"
'    Dim nodRoot As Node
'    Dim newNode1 As Node
'
'
'    sSQL = "SELECT * FROM MENU_SETUP ORDER BY cKey"
'
'    OpenNewConnection connList
'    rs.Open sSQL, connList, adOpenKeyset
'
'    Do Until rs.EOF
'        If Mid(rs!cMenuID, 1, 2) = "RP" Then
'            If rs!cLevel = "1" Then
'                Set nodRoot = TreeView2.Nodes.Add(, , rs!cMenuID, rs!cDesc)
'                With nodRoot
'                    .Image = Trim(rs!cIcon)
'                    .Expanded = True
'                End With
'            ElseIf rs!cLevel = "2" Then
'                Set newNode1 = Me.TreeView2.Nodes.Add(nodRoot, 4, rs!cMenuID, rs!cDesc, Trim(rs!cIcon))
'                newNode1.Expanded = True
'            ElseIf rs!cLevel = "3" Then
'                AddTVNode2 newNode1, rs!cMenuID, rs!cDesc, rs!cIcon, rs!cIcon
'            Else
'                AddTVNode2 nodRoot, rs!cMenuID, rs!cDesc, rs!cIcon, rs!cIcon
'            End If
'            rs.MoveNext
'        ElseIf Mid(rs!cMenuID, 1, 2) = "AH" Then
'            If rs!cLevel = "1" Then
'                Set nodRoot = TreeView2.Nodes.Add(, , rs!cMenuID, rs!cDesc)
'                With nodRoot
'                    .Image = Trim(rs!cIcon)
'                    .Expanded = True
'                End With
'            ElseIf rs!cLevel = "2" Then
'                Set newNode1 = Me.TreeView2.Nodes.Add(nodRoot, 4, rs!cMenuID, rs!cDesc, Trim(rs!cIcon))
'                newNode1.Expanded = True
'            ElseIf rs!cLevel = "3" Then
'                AddTVNode2 newNode1, rs!cMenuID, rs!cDesc, rs!cIcon, rs!cIcon
'            Else
'                AddTVNode2 nodRoot, rs!cMenuID, rs!cDesc, rs!cIcon, rs!cIcon
'            End If
'            rs.MoveNext
'        Else
'            If rs!cLevel = "1" Then
'                Set nodRoot = TreeView1.Nodes.Add(, , rs!cMenuID, rs!cDesc)
'                With nodRoot
'                    .Image = Trim(rs!cIcon)
'                End With
'                If rs!cMenuID = "TL" Or rs!cMenuID = "MF" Or rs!cMenuID = "GL" Or rs!cMenuID = "SP" Or rs!cMenuID = "AM" Then
'                    nodRoot.Expanded = True
'                End If
'            ElseIf rs!cLevel = "2" Then
'                Set newNode1 = Me.TreeView1.Nodes.Add(nodRoot, 4, rs!cMenuID, rs!cDesc, Trim(rs!cIcon))
'            ElseIf rs!cLevel = "3" Then
'                AddTVNode newNode1, rs!cMenuID, rs!cDesc, rs!cIcon, rs!cIcon
'            Else
'                AddTVNode nodRoot, rs!cMenuID, rs!cDesc, rs!cIcon, rs!cIcon
'            End If
'            rs.MoveNext
'        End If
'    Loop
'
'    Set rs = Nothing
'    Set connList = Nothing
'
'    Set itmX = ListView1.ColumnHeaders.Add(, , "")
'    Set itmX = ListView1.ColumnHeaders.Add(, , "Notes")
'    Set itmX = ListView1.ColumnHeaders.Add(, , "Status")
'    ListView1.ColumnHeaders(1).Width = "0300"
'    ListView1.ColumnHeaders(2).Width = "2750"
'    ListView1.ColumnHeaders(3).Width = "0800"
'
'    ListView1.ListItems.Clear
'    Set itmX = ListView1.ListItems.Add(, , "")
'        itmX.SubItems(1) = "Unapproved Purchase Request"
'        itmX.SubItems(2) = "0"
'    Set itmX = ListView1.ListItems.Add(, , "")
'        itmX.SubItems(1) = "Pending Purchase Request"
'        itmX.SubItems(2) = "0"
'    Set itmX = ListView1.ListItems.Add(, , "")
'        itmX.SubItems(1) = "Undelivered Purchase Order"
'        itmX.SubItems(2) = "0"
'    Set itmX = ListView1.ListItems.Add(, , "")
'        itmX.SubItems(1) = "PO with short/pending deliveries"
'        itmX.SubItems(2) = "0"
'
'    Set itmX = ListView2.ColumnHeaders.Add(, , "")
'    Set itmX = ListView2.ColumnHeaders.Add(, , "Date")
'    Set itmX = ListView2.ColumnHeaders.Add(, , "Tasks Description")
'    Set itmX = ListView2.ColumnHeaders.Add(, , "Task ID")
'    ListView2.ColumnHeaders(1).Width = "0300"
'    ListView2.ColumnHeaders(2).Width = "0800"
'    ListView2.ColumnHeaders(3).Width = "2750"
'    ListView2.ColumnHeaders(4).Width = "1200"
'
'    Fill_Tasks
'
'    Set nodRoot = TreeView1.Nodes(1)
'    Me.Calendar1.Day = Day(Now())
'    Me.Calendar1.Month = Month(Now())
'    Me.Calendar1.Year = Year(Now())
'
'End Sub
'
'Private Sub AddTVNode(ByRef ParentNode As Node, ByVal nodeKey As String, _
'    ByVal nodeText As String, ByVal imgclose As String, ByVal imgopen As String)
'    Dim newNode As Node
'    Set newNode = TreeView1.Nodes.Add(ParentNode, tvwChild, nodeKey, _
'        nodeText, imgclose, imgopen)
'End Sub
'
'Private Sub AddTVNode2(ByRef ParentNode As Node, ByVal nodeKey As String, _
'    ByVal nodeText As String, ByVal imgclose As String, ByVal imgopen As String)
'    Dim newNode As Node
'    Set newNode = TreeView2.Nodes.Add(ParentNode, tvwChild, nodeKey, _
'        nodeText, imgclose, imgopen)
'End Sub
'
''Private Sub Form_Resize()
''    If Me.ScaleHeight <> 0 Then
''        'TreeView1.Height = Me.ScaleHeight - TreeView1.Top - 20
''        'TreeView1.Width = Me.ScaleWidth - 20
''        'Me.Top = 0
''        'Me.Left = 0
''    End If
''End Sub
'
'Sub Fill_Tasks()
'Dim rsGet As New Recordset
'
'ListView2.ListItems.Clear
'
'sSQL = "Select * from TASKS WHERE cEmployeeID='" & SecUserID & "' AND cStatus <> 'Completed'"
'
'rsGet.Open sSQL, cn, adOpenKeyset, adLockReadOnly
'
'If rsGet.RecordCount <> 0 Then
'    While Not rsGet.EOF
'        Set itmX = ListView2.ListItems.Add(, , "")
'        itmX.SubItems(1) = Format(rsGet!dDateTo, "mmm-dd")
'        itmX.SubItems(2) = rsGet!cDescription & ""
'        itmX.SubItems(3) = rsGet!cTaskID & ""
'        rsGet.MoveNext
'    Wend
'End If
'
'rsGet.Close
'Set rsGet = Nothing
'
'End Sub
'
'Private Sub imgChart_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Dim lHandle As Long
'    lHandle = LoadCursor(0, HandCursor)
'    If (lHandle > 0) Then SetCursor lHandle
'End Sub
'
'Private Sub imgChart_DblClick()
'    frmToolChart.Show
'    frmToolChart.ZOrder
'End Sub
'
'Public Sub imgClient_DblClick()
''    frmToolApproval.Show
''    frmToolApproval.ZOrder
'    sTabTxt = "Operation"
'    sNodeCode = GetValueFrTable("module_code", "erp_sec_modules", "link = 'frmToolApproval'", True)
'    sNodeTxt = GetValueFrTable("module", "erp_sec_modules", "link = 'frmToolApproval'", True)
'    nNodeIndex = GetValueFrTable("module_id", "erp_sec_modules", "link = 'frmToolApproval'", True)
'    sLink = "frmToolApproval"
'    lClicked = False
'    ITGLedgerMain.mpNavigation_ElementClicked
'    lClicked = True
'End Sub
'
'Private Sub imgClient_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Dim lHandle As Long
'    lHandle = LoadCursor(0, HandCursor)
'    If (lHandle > 0) Then SetCursor lHandle
'End Sub
'
'Private Sub imgProject_DblClick()
'    frmToolSmartList.Show
'    frmToolSmartList.ZOrder
'End Sub
'
'Private Sub imgProject_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Dim lHandle As Long
'    lHandle = LoadCursor(0, HandCursor)
'    If (lHandle > 0) Then SetCursor lHandle
'End Sub
'
'Private Sub imgTask_DblClick()
'    frmReminders.Show
'    frmReminders.ZOrder
'End Sub
'
'Private Sub imgTask_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Dim lHandle As Long
'    lHandle = LoadCursor(0, HandCursor)
'    If (lHandle > 0) Then SetCursor lHandle
'End Sub
'
'Private Sub ListView2_DblClick()
'If ListView2.ListItems.Count = 0 Then Exit Sub
'    If ListView2.SelectedItem.SubItems(1) <> "" Then
'        lTasksFlag = "Edit"
'        frmTasks.Show 1
'    End If
'End Sub
'
'Private Sub picAP_Click()
'    RepName = "AP"
'    frmDisplayAR.Show
'    frmDisplayAR.ZOrder
'End Sub
'
'Private Sub picAR_Click()
'    RepName = "AR"
'    frmDisplayAR.Show
'    frmDisplayAR.ZOrder
'End Sub
'
'Private Sub picFA_Click()
'    RepName = "FA"
'    frmDisplayAR.Show
'    frmDisplayAR.ZOrder
'End Sub
'
'Private Sub picReport_Click()
'    frmComUnionNavigationSetup.Show
'End Sub
'
'Private Sub Picture4_Click()
'On Error GoTo ErrHandler
'    Picture4.Visible = False
'    Picture5.Visible = True
'    Me.Width = 15300
'ErrHandler:
'End Sub
'
'Private Sub picture5_click()
'On Error GoTo ErrHandler
'    Picture4.Visible = True
'    Picture5.Visible = False
'    Me.Width = 2670
'ErrHandler:
'End Sub
'
'
'Private Sub TreeView1_Click()
'    Select Case Me.TreeView1.SelectedItem.Key
'    Case "AM01"
'    Case "AM02"
'    Case "AM03"
'    Case Else
'    End Select
'End Sub
'
'Private Sub TreeView1_DblClick()
'On Error GoTo ErrHandler
'    Select Case Me.TreeView1.SelectedItem.Key
'    Case "BS01"
'        If GetValueFrTable("Module", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module = 'OBSO'") & "" <> "" Then
'            frmARSalesOrder.Show
'            frmARSalesOrder.ZOrder
'        Else
'            MsgBox "No Access for particular module!", vbInformation, "ComUnion"
'        End If
'    Case "BS02"
'        If GetValueFrTable("Module", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module = 'OBSI'") & "" <> "" Then
'            frmARSalesInvoice.Show
'            frmARSalesInvoice.ZOrder
'        Else
'            MsgBox "No Access for particular module!", vbInformation, "ComUnion"
'        End If
'    Case "BS03"
'        If GetValueFrTable("Module", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module = 'OBCS'") & "" <> "" Then
'            frmARCashSales.Show
'            frmARCashSales.ZOrder
'        Else
'            MsgBox "No Access for particular module!", vbInformation, "ComUnion"
'        End If
'    Case "BS04"
'        If GetValueFrTable("Module", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module = 'OBCMDM'") & "" <> "" Then
'            frmARAdjustments.Show
'            frmARAdjustments.ZOrder
'        Else
'            MsgBox "No Access for particular module!", vbInformation, "ComUnion"
'        End If
'    Case "BS05"
'        If GetValueFrTable("Module", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module = 'OBCMITEM'") & "" <> "" Then
'            frmARAdjustmentsItem.Show
'            frmARAdjustmentsItem.ZOrder
'        Else
'            MsgBox "No Access for particular module!", vbInformation, "ComUnion"
'        End If
'    Case "BS06"
'        If GetValueFrTable("Module", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module = 'OBCMEE'") & "" <> "" Then
'            frmAREWTEVATCM.Show
'            frmAREWTEVATCM.ZOrder
'        Else
'            MsgBox "No Access for particular module!", vbInformation, "ComUnion"
'        End If
'    Case "CC01"
'        If GetValueFrTable("Module", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module = 'CCOR'") & "" <> "" Then
'            frmARCollection.Show
'            frmARCollection.ZOrder
'        Else
'            MsgBox "No Access for particular module!", vbInformation, "ComUnion"
'        End If
'    Case "CC02"
'        If GetValueFrTable("Module", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module = 'CCDEPOSIT'") & "" <> "" Then
'            frmARDepositSlip.Show
'            frmARDepositSlip.ZOrder
'        Else
'            MsgBox "No Access for particular module!", vbInformation, "ComUnion"
'        End If
'    Case "CC03"
'        If GetValueFrTable("Module", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module = 'CCRETURN'") & "" <> "" Then
'            frmARReturnCheck.Show
'            frmARReturnCheck.ZOrder
'        Else
'            MsgBox "No Access for particular module!", vbInformation, "ComUnion"
'        End If
'    Case "CC04"
'        If GetValueFrTable("Module", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module = 'CCPULLED'") & "" <> "" Then
'            frmARPulledOutCheck.Show
'            frmARPulledOutCheck.ZOrder
'        Else
'            MsgBox "No Access for particular module!", vbInformation, "ComUnion"
'        End If
'    Case "CC05"
'        If GetValueFrTable("Module", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module = 'CCREPLACE'") & "" <> "" Then
'            frmARReplacementCheck.Show
'            frmARReplacementCheck.ZOrder
'        Else
'            MsgBox "No Access for particular module!", vbInformation, "ComUnion"
'        End If
'    Case "EX01"
''        frmExportProforma.Show
''        frmExportProforma.ZOrder
'    Case "EX02"
''        frmExportDR.Show
''        frmExportDR.ZOrder
'    Case "EX03"
''        frmExportSales.Show
''        frmExportSales.ZOrder
'    Case "PS01"
'        If GetValueFrTable("Module", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module = 'PPPR'") & "" <> "" Then
'            frmAPPurchaseRequest.Show
'            frmAPPurchaseRequest.ZOrder
'        Else
'            MsgBox "No Access for particular module!", vbInformation, "ComUnion"
'        End If
'    Case "PS02"
'        If GetValueFrTable("Module", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module = 'PPPO'") & "" <> "" Then
'            frmAPPurchaseOrder.Show
'            frmAPPurchaseOrder.ZOrder
'        Else
'            MsgBox "No Access for particular module!", vbInformation, "ComUnion"
'        End If
'    Case "PS03"
'        If GetValueFrTable("Module", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module = 'PPSETUP'") & "" <> "" Then
'            frmAPSetup.Show
'            frmAPSetup.ZOrder
'        Else
'            MsgBox "No Access for particular module!", vbInformation, "ComUnion"
'        End If
'    Case "PS04"
'        If GetValueFrTable("Module", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module = 'PPCMDM'") & "" <> "" Then
'            frmAPAdjustments.Show
'            frmAPAdjustments.ZOrder
'        Else
'            MsgBox "No Access for particular module!", vbInformation, "ComUnion"
'        End If
'    Case "DS01"
'        If GetValueFrTable("Module", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module = 'PPVOUCHER'") & "" <> "" Then
'            frmAPVoucherMain.Show
'            frmAPVoucherMain.ZOrder
'        Else
'            MsgBox "No Access for particular module!", vbInformation, "ComUnion"
'        End If
'    Case "DS02"
'        If GetValueFrTable("Module", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module = 'PPCHKISS'") & "" <> "" Then
'            frmAPCheckIssuance.Show
'            frmAPCheckIssuance.ZOrder
'        Else
'            MsgBox "No Access for particular module!", vbInformation, "ComUnion"
'        End If
'    Case "DS03"
'        If GetValueFrTable("Module", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module = 'PPCHKCLR'") & "" <> "" Then
'            frmAPCheckClearing.Show
'            frmAPCheckClearing.ZOrder
'        Else
'            MsgBox "No Access for particular module!", vbInformation, "ComUnion"
'        End If
'    Case "DS04"
'        If GetValueFrTable("Module", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module = 'PPCHKBBL'") & "" <> "" Then
'            frmToolBankBklet.Show
'            frmToolBankBklet.ZOrder
'        Else
'            MsgBox "No Access for particular module!", vbInformation, "ComUnion"
'        End If
'    Case "DS05"
'        If GetValueFrTable("Module", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module = 'PPBANKCL'") & "" <> "" Then
'            frmToolBankCompany.Show
'            frmToolBankCompany.ZOrder
'        Else
'            MsgBox "No Access for particular module!", vbInformation, "ComUnion"
'        End If
'    Case "GL01"
'        If GetValueFrTable("Module", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module = 'GLJOURNAL'") & "" <> "" Then
'            frmGLJE.Show
'            frmGLJE.ZOrder
'        Else
'            MsgBox "No Access for particular module!", vbInformation, "ComUnion"
'        End If
'    Case "GL02"
'        If GetValueFrTable("Module", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module = 'GLARCPT'") & "" <> "" Then
'            frmGLIntAR.Show
'            frmGLIntAR.ZOrder
'        Else
'            MsgBox "No Access for particular module!", vbInformation, "ComUnion"
'        End If
'    Case "GL03"
'        If GetValueFrTable("Module", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module = 'GLFADEP'") & "" <> "" Then
'            frmARFixedAssetDep.Show
'            frmARFixedAssetDep.ZOrder
'        Else
'            MsgBox "No Access for particular module!", vbInformation, "ComUnion"
'        End If
'    Case "GL04"
'        If GetValueFrTable("Module", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module = 'PPSETUP'") & "" <> "" Then
'            frmAPPettyCashAd.Show
'            frmAPPettyCashAd.ZOrder
'        Else
'            MsgBox "No Access for particular module!", vbInformation, "ComUnion"
'        End If
'    Case "MI01"
'        If GetValueFrTable("Module", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module = 'IPWRR'") & "" <> "" Then
'            frmAPWRR.Show
'            frmAPWRR.ZOrder
'        Else
'            MsgBox "No Access for particular module!", vbInformation, "ComUnion"
'        End If
'    Case "MI02"
'        If GetValueFrTable("Module", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module = 'IPDR'") & "" <> "" Then
'            frmARDeliveryReceipt.Show
'            frmARDeliveryReceipt.ZOrder
'        Else
'            MsgBox "No Access for particular module!", vbInformation, "ComUnion"
'        End If
'    Case "MI03"
'        If GetValueFrTable("Module", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module = 'IPPO'") & "" <> "" Then
'            frmMFGProductionOrder.Show
'            frmMFGProductionOrder.ZOrder
'        Else
'            MsgBox "No Access for particular module!", vbInformation, "ComUnion"
'        End If
'    Case "MI04"
'        If GetValueFrTable("Module", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module = 'IPINVADJ'") & "" <> "" Then
'            frmInvAdjustment.Show
'            frmInvAdjustment.ZOrder
'        Else
'            MsgBox "No Access for particular module!", vbInformation, "ComUnion"
'        End If
'    Case "MI05"
'        If GetValueFrTable("Module", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module = 'IPINVTRAN'") & "" <> "" Then
'            frmINVTransfer.Show
'            frmINVTransfer.ZOrder
'        Else
'            MsgBox "No Access for particular module!", vbInformation, "ComUnion"
'        End If
'    Case "MI07"
'        If GetValueFrTable("Module", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module = 'IPINVDMG'") & "" <> "" Then
'            frmARDamageModule.Show
'            frmARDamageModule.ZOrder
'        Else
'            MsgBox "No Access for particular module!", vbInformation, "ComUnion"
'        End If
'    Case "SP01"
'        frmMaintSupply.Show
'        frmMaintSupply.ZOrder
'     Case "SP03"
'        frmEnhanceSupplyIssuance.Show
'        frmEnhanceSupplyIssuance.ZOrder
'    Case "MF01"
'        If GetValueFrTable("Module", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module = 'MACCOUNT'") & "" <> "" Then
'            frmMaintAccount.Show
'            frmMaintAccount.ZOrder
'        Else
'            MsgBox "No Access for particular module!", vbInformation, "ComUnion"
'        End If
'    Case "MF02"
'        If GetValueFrTable("Module", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module = 'MCLIENT'") & "" <> "" Then
'            frmMaintCustomerSupplier.Show
'            frmMaintCustomerSupplier.ZOrder
'        Else
'            MsgBox "No Access for particular module!", vbInformation, "ComUnion"
'        End If
'    Case "MF03"
'        If GetValueFrTable("Module", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module = 'MSALESMAN'") & "" <> "" Then
'            frmMaintSalesman.Show
'            frmMaintSalesman.ZOrder
'        Else
'            MsgBox "No Access for particular module!", vbInformation, "ComUnion"
'        End If
'    Case "MF04"
'        If GetValueFrTable("Module", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module = 'MEMPLOYEE'") & "" <> "" Then
'            frmMaintEmployee.Show
'            frmMaintEmployee.ZOrder
'        Else
'            MsgBox "No Access for particular module!", vbInformation, "ComUnion"
'        End If
'    Case "MF05"
'        If GetValueFrTable("Module", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module = 'MPRODUCT'") & "" <> "" Then
'            frmMaintProduct.Show
'            frmMaintProduct.ZOrder
'        Else
'            MsgBox "No Access for particular module!", vbInformation, "ComUnion"
'        End If
'    Case "MF06"
'        If GetValueFrTable("Module", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module = 'MWHSE'") & "" <> "" Then
'            frmMaintWarehouse.Show
'            frmMaintWarehouse.ZOrder
'        Else
'            MsgBox "No Access for particular module!", vbInformation, "ComUnion"
'        End If
'    Case "MF07"
'        If GetValueFrTable("Module", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module = 'MFASSETS'") & "" <> "" Then
'            frmMaintFixedAssets.Show
'            frmMaintFixedAssets.ZOrder
'        Else
'            MsgBox "No Access for particular module!", vbInformation, "ComUnion"
'        End If
'    Case "MF08"
'        If GetValueFrTable("Module", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module = 'MBANK'") & "" <> "" Then
'            frmMaintBank.Show
'            frmMaintBank.ZOrder
'        Else
'            MsgBox "No Access for particular module!", vbInformation, "ComUnion"
'        End If
'    Case "MF09"
'        If GetValueFrTable("Module", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module = 'MCOMPANY'") & "" <> "" Then
'            frmMaintCompany.Show
'            frmMaintCompany.ZOrder
'        Else
'            MsgBox "No Access for particular module!", vbInformation, "ComUnion"
'        End If
'    Case "AM"
''        frmInbox.Top = 0
''        frmInbox.Left = 2000
''        frmInbox.Show
'    Case "TL01"
'        frmSecUserProfile.Show
'        frmSecUserProfile.ZOrder
'    Case "TL02"
'        frmToolGLInterface.Show
'        frmToolGLInterface.ZOrder
'    Case "TL03"
'        If GetValueFrTable("Module", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module = 'SACCESS'") & "" <> "" Then
'            frmSecUserAccessLevel.Show
'            frmSecUserAccessLevel.ZOrder
'        Else
'            MsgBox "No Access for particular module!", vbInformation, "ComUnion"
'        End If
'    Case "TL04"
'        frmToolAuditTrail.Top = 0
'        frmToolAuditTrail.Left = 2000
'        frmToolAuditTrail.Show
'    Case "TL05"
'        frmToolGLActivity.Top = 0
'        frmToolGLActivity.Left = 2630
'        frmToolGLActivity.Show
'    Case "TL06"
'        RepName = "Closing"
'        frmToolClosing.Show 1
'    Case "TL07"
'        RepName = "Recompute"
'        frmToolClosing.Show 1
'    Case Else
'
'    End Select
'ErrHandler:
'    If err.Number = 384 Then
'        MsgBox "Form already open!", vbOKOnly, "ComUnion System"
'        Exit Sub
'    End If
'End Sub
'
'Private Sub TreeView2_DblClick()
'    Select Case Mid(Me.TreeView2.SelectedItem.Key, 1, 4)
'    Case "RP01"
'        If GetValueFrTable("AccessLevel", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module='RP01'") <> "" Then
'            If GetValueFrTable("cReportID", "REPORT", "cReportID = '" & Me.TreeView2.SelectedItem.Key & "'") <> "" Then
'                cReport = Me.TreeView2.SelectedItem.Key
'                ITGLedgerMain.MenuTab1.AddTab 12, "Report Criteria", , frmReportCriteria.Name
'                Set FrmName = frmReportCriteria
'                oContainer.SetUpContainer frmReportCriteria, True
'                frmReportCriteria.Show
''                FrmName.Tag = sIndex
'                frmReportCriteria.ZOrder
'            Else
'                MsgBox "Report not yet existing or file is missing!", vbOKOnly
'            End If
'        Else
'            MsgBox "No access to Accounts Receivable Reports", vbOKOnly
'        End If
'    Case "RP02"
'        If GetValueFrTable("AccessLevel", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module='RP02'") <> "" Then
'            If GetValueFrTable("cReportID", "REPORT", "cReportID = '" & Me.TreeView2.SelectedItem.Key & "'") <> "" Then
'                cReport = Me.TreeView2.SelectedItem.Key
'                ITGLedgerMain.MenuTab1.AddTab 12, "Report Criteria", , frmReportCriteria.Name
''                sIndex = 221
'                oContainer.SetUpContainer frmReportCriteria, True
'                frmReportCriteria.Show
'                frmReportCriteria.ZOrder
'            Else
'                MsgBox "Report not yet existing or file is missing!", vbOKOnly
'            End If
'        Else
'            MsgBox "No access to Collection Reports", vbOKOnly
'        End If
'    Case "RP03"
'        If GetValueFrTable("AccessLevel", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module='RP03'") <> "" Then
'            If GetValueFrTable("cReportID", "REPORT", "cReportID = '" & Me.TreeView2.SelectedItem.Key & "'") <> "" Then
'                cReport = Me.TreeView2.SelectedItem.Key
'                ITGLedgerMain.MenuTab1.AddTab 12, "Report Criteria", , frmReportCriteria.Name
''                sIndex = 221
'                oContainer.SetUpContainer frmReportCriteria, True
'                frmReportCriteria.Show
'                frmReportCriteria.ZOrder
'            Else
'                MsgBox "Report not yet existing or file is missing!", vbOKOnly
'            End If
'        Else
'            MsgBox "No access to Accounts Payable Reports", vbOKOnly
'        End If
'    Case "RP04"
'        If GetValueFrTable("AccessLevel", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module='RP04'") <> "" Then
'            If GetValueFrTable("cReportID", "REPORT", "cReportID = '" & Me.TreeView2.SelectedItem.Key & "'") <> "" Then
'                cReport = Me.TreeView2.SelectedItem.Key
'                ITGLedgerMain.MenuTab1.AddTab 12, "Report Criteria", , frmReportCriteria.Name
''                sIndex = 221
'                oContainer.SetUpContainer frmReportCriteria, True
'                frmReportCriteria.Show
'                frmReportCriteria.ZOrder
'            Else
'                MsgBox "Report not yet existing or file is missing!", vbOKOnly
'            End If
'        Else
'            MsgBox "No access to Government Reports", vbOKOnly
'        End If
'    Case "RP05"
'        If GetValueFrTable("AccessLevel", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module='RP05'") <> "" Then
'            If GetValueFrTable("cReportID", "REPORT", "cReportID = '" & Me.TreeView2.SelectedItem.Key & "'") <> "" Then
'                cReport = Me.TreeView2.SelectedItem.Key
'                ITGLedgerMain.MenuTab1.AddTab 12, "Report Criteria", , frmReportCriteria.Name
''                sIndex = 221
'                oContainer.SetUpContainer frmReportCriteria, True
'                frmReportCriteria.Show
'                frmReportCriteria.ZOrder
'            Else
'                MsgBox "Report not yet existing or file is missing!", vbOKOnly
'            End If
'        Else
'            MsgBox "No access to Standard Reports", vbOKOnly
'        End If
'    Case "RP06"
'        If GetValueFrTable("AccessLevel", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module='RP06'") <> "" Then
'            If GetValueFrTable("cReportID", "REPORT", "cReportID = '" & Me.TreeView2.SelectedItem.Key & "'") <> "" Then
'                cReport = Me.TreeView2.SelectedItem.Key
'                ITGLedgerMain.MenuTab1.AddTab 12, "Report Criteria", , frmReportCriteria.Name
''                sIndex = 221
'                oContainer.SetUpContainer frmReportCriteria, True
'                frmReportCriteria.Show
'                frmReportCriteria.ZOrder
'            Else
'                MsgBox "Report not yet existing or file is missing!", vbOKOnly
'            End If
'        Else
'            MsgBox "No access to Merchandise Inventory Reports", vbOKOnly
'        End If
''    Case "RP07"
''        If GetValueFrTable("AccessLevel", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' and Module='REPDIS'") <> "" Then
''            If GetValueFrTable("cReportID", "REPORT", "cReportID = '" & Me.TreeView2.SelectedItem.Key & "'") <> "" Then
''                cReport = Me.TreeView2.SelectedItem.Key
''                frmReportCriteria.Show
''                frmReportCriteria.ZOrder
''            Else
''                MsgBox "Report not yet existing or file is missing!", vbOKOnly
''            End If
''        Else
''            MsgBox "No access to Disbursement Report", vbOKOnly
''        End If
'    Case "AH01"
'        frmReportWriter.Show
'    End Select
'End Sub
'
'Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'    picCore.Picture = picCore1.Picture
'    picAR.Picture = picAR1.Picture
'    picAP.Picture = picAP1.Picture
'    picInv.Picture = picInv1.Picture
'    picGL.Picture = picGL1.Picture
'    picManu.Picture = picManu1.Picture
'    picFA.Picture = picFA1.Picture
'    picReport.Picture = picReport1.Picture
'End Sub
'
'Private Sub TreeView1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'    picCore.Picture = picCore1.Picture
'    picAR.Picture = picAR1.Picture
'    picAP.Picture = picAP1.Picture
'    picInv.Picture = picInv1.Picture
'    picGL.Picture = picGL1.Picture
'    picManu.Picture = picManu1.Picture
'    picFA.Picture = picFA1.Picture
'    picReport.Picture = picReport1.Picture
'End Sub
'
'Private Sub picCore_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Dim lHandle As Long
'    lHandle = LoadCursor(0, HandCursor)
'    If (lHandle > 0) Then SetCursor lHandle
'    picCore.Picture = picCore2.Picture
'    picAR.Picture = picAR1.Picture
'End Sub
'
'Private Sub picAR_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Dim lHandle As Long
'    lHandle = LoadCursor(0, HandCursor)
'    If (lHandle > 0) Then SetCursor lHandle
'    picCore.Picture = picCore1.Picture
'    picAR.Picture = picAR2.Picture
'    picAP.Picture = picAP1.Picture
'End Sub
'
'Private Sub picAP_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Dim lHandle As Long
'    lHandle = LoadCursor(0, HandCursor)
'    If (lHandle > 0) Then SetCursor lHandle
'    picAR.Picture = picAR1.Picture
'    picAP.Picture = picAP2.Picture
'    picInv.Picture = picInv1.Picture
'End Sub
'
'Private Sub picInv_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Dim lHandle As Long
'    lHandle = LoadCursor(0, HandCursor)
'    If (lHandle > 0) Then SetCursor lHandle
'    picAP.Picture = picAP1.Picture
'    picInv.Picture = picInv2.Picture
'    picGL.Picture = picGL1.Picture
'End Sub
'
'Private Sub picGL_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Dim lHandle As Long
'    lHandle = LoadCursor(0, HandCursor)
'    If (lHandle > 0) Then SetCursor lHandle
'    picInv.Picture = picInv1.Picture
'    picGL.Picture = picGL2.Picture
'    picManu.Picture = picManu1.Picture
'End Sub
'
'Private Sub picManu_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Dim lHandle As Long
'    lHandle = LoadCursor(0, HandCursor)
'    If (lHandle > 0) Then SetCursor lHandle
'    picGL.Picture = picGL1.Picture
'    picManu.Picture = picManu2.Picture
'    picFA.Picture = picFA1.Picture
'End Sub
'
'Private Sub picFA_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Dim lHandle As Long
'    lHandle = LoadCursor(0, HandCursor)
'    If (lHandle > 0) Then SetCursor lHandle
'    picManu.Picture = picManu1.Picture
'    picFA.Picture = picFA2.Picture
'    picReport.Picture = picReport1.Picture
'End Sub
'
'Private Sub picReport_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Dim lHandle As Long
'    lHandle = LoadCursor(0, HandCursor)
'    If (lHandle > 0) Then SetCursor lHandle
'    picFA.Picture = picFA1.Picture
'    picReport.Picture = picReport2.Picture
'End Sub
'
'
Private Sub Form_Load()

End Sub
